uses crt;
var str : string;
index1, index2, i : byte;
begin
clrscr;
write ('String: ');
readln (str);
for i:=1 to length (str) do
if str[i] = '(' then
begin
index1:=i;
break;
end;
for i:=index1+1 to length (str) do
if str[i] = ')' then
begin
index2:=i;
break;
end;
Delete (str, index1+1, index2-index1-1);
writeln ('Rez: ', str);
readkey;
end.